p <- ggplot(pokemon, aes(x = Defense, y = Attack, color = `Type 1`)) + geom_point() ggplotly(p)
library(tidyverse) library(plotly) library(crosstalk) pokemon <- read_csv("pokemon.csv")